Date: Sat, 27 Aug 94 04:30:18 PDT From: Ham-Space Mailing List and Newsgroup Errors-To: Ham-Space-Errors@UCSD.Edu Reply-To: Ham-Space@UCSD.Edu Precedence: Bulk Subject: Ham-Space Digest V94 #238 To: Ham-Space Ham-Space Digest Sat, 27 Aug 94 Volume 94 : Issue 238 Today's Topics: Converting Grid to Lat-Lon QSL Route for RS-12 Robot Send Replies or notes for publication to: Send subscription requests to: Problems you can't solve otherwise to brian@ucsd.edu. Archives of past issues of the Ham-Space Digest are available (by FTP only) from UCSD.Edu in directory "mailarchives/ham-space". We trust that readers are intelligent enough to realize that all text herein consists of personal comments and does not represent the official policies or positions of any party. Your mileage may vary. So there. ---------------------------------------------------------------------- Date: 25 Aug 1994 13:00:33 -0700 From: nntp.crl.com!crl4.crl.com!not-for-mail@decwrl.dec.com Subject: Converting Grid to Lat-Lon To: ham-space@ucsd.edu In article <9408250942.ZM25231@SALCIUS2>, Wayne_Estes@csg.mot.com (Wayne_Estes) wrote: > I'm looking for a DOS or Windows program that can: > > A. Convert 6-digit Maidenhead grid to Latitude/Longitude. > B. Convert Latitude/Longitude to 6-digit Maidenhead grid. Wayne - The attached Quick BASIC program will perform the functions you mentioned above. Sorry, I don't know who was the original author, so can't give appropriate credits. 73 de Lou / N5SGL -------------------------- 'Grid Square <-> latitude/longitude conversion ' START: CLS : COLOR 0, 7: PRINT "GRID SQUARE LOCATOR": COLOR 7, 0: PRINT PRINT "Which do you want to convert FROM?": PRINT COLOR 0, 7: PRINT "L"; : COLOR 7, 0: PRINT "at/Lon "; COLOR 0, 7: PRINT "G"; : COLOR 7, 0: PRINT "rid "; COLOR 0, 7: PRINT "Q"; : COLOR 7, 0: PRINT "uit": PRINT RPT1: a$ = "" DO a$ = INKEY$ LOOP UNTIL a$ <> "" IF UCASE$(a$) = "Q" THEN END IF UCASE$(a$) = "L" THEN GOTO LL IF UCASE$(a$) = "G" THEN GOTO GRID GOTO RPT1 LL: CLEAR : e9 = .000001 CLS : COLOR 0, 7: PRINT "LAT/LON": COLOR 7, 0: PRINT PRINT "Enter SOUTH latitude and EAST longitude as NEGATIVE numbers." PRINT INPUT "LAT (DD.MM)"; l IF l < -90 OR l > 90 THEN RUN INPUT "LON (DDD.MM)"; o IF o < -180 OR o > 180 THEN RUN os = SGN(o): o = ABS(o): ls = SGN(l): l = ABS(l) la = (INT(l) + (l - INT(l)) / .6) * ls lo = (INT(o) + (o - INT(o)) / .6) * os IF lo < 0 THEN lo = lo + 360 w3 = 180 - lo: IF w3 < 0 THEN w3 = w3 + 360 w1 = INT(w3 / 20 + e9) w2 = INT((w3 - 20 * w1) / 2 + e9) + 48: w1 = w1 + 65 w3 = INT(24 * (w3 / 2 - INT(w3 / 2)) + e9) + 65 l1 = INT((la + 90) / 10 + e9): l2 = INT(la + 90 + e9 - 10 * l1) l3 = INT((la + 90 - 10 * l1 - l2) * 24 + e9) l1 = l1 + 65: l2 = l2 + 48: l3 = l3 + 65 g$ = CHR$(w1) + CHR$(l1) + CHR$(w2) + CHR$(l2) + CHR$(w3) + CHR$(l3) PRINT : PRINT "Grid square = "; UCASE$(g$) LOCATE 24, 1: PRINT "< Press a key to continue >"; a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": GOTO START GRID: CLEAR : e9 = .000001 CLS : COLOR 0, 7: PRINT "GRID SQUARE": COLOR 7, 0: PRINT PRINT "Enter 2-, 4-, or 6-character grid square." PRINT "Short ones will be optimized to center of square.": PRINT INPUT "Grid square"; g$ g$ = UCASE$(g$) l3 = LEN(g$): IF l3 < 2 OR l3 > 6 THEN RUN IF l3 = 1 OR l3 = 3 OR l3 = 5 THEN RUN SELECT CASE l3 CASE 2 g$ = g$ + "55LL" CASE 4 g$ = g$ + "LL" END SELECT LOCATE CSRLIN - 1, 1: PRINT "Grid square = "; g$; " " RESTORE FOR x = 1 TO 6 READ y$, z$ t$ = MID$(g$, x, 1): IF t$ < y$ OR t$ > z$ THEN RUN NEXT x DATA A,R,A,S,0,9,0,9,A,X,A,X w1 = ASC(LEFT$(g$, 1)) - 65 w2 = ASC(MID$(g$, 3, 1)) - 48 w3 = ASC(MID$(g$, 5, 1)) - 65 lo = 180 - 20 * w1 - 2 * w2 - w3 / 12 - 1 / 24 IF lo < 0 THEN lo = lo + 360 l1 = ASC(MID$(g$, 2, 1)) - 65 l2 = ASC(MID$(g$, 4, 1)) - 48 l3 = ASC(RIGHT$(g$, 1)) - 65 la = -90 + 10 * l1 + l2 + l3 / 24 + 1 / 48 IF lo > 180 THEN lo = lo - 360 ls = SGN(la): la = ABS(la) l = (INT(la) + INT((la - INT(la)) * 60) / 100) * ls os = SGN(lo): lo = ABS(lo) o = (INT(lo) + INT((lo - INT(lo)) * 60) / 100) * os PRINT PRINT "LAT (DD.MM) ="; l PRINT "LON (DDD.MM) ="; o PRINT PRINT "(SOUTH latitude and EAST longitude shown as negative numbers.)" LOCATE 24, 1: PRINT "< Press a key to continue >"; a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "" GOTO START ------------------------------ Date: 25 Aug 1994 12:45:37 GMT From: hatch.sonalysts.com!gerheim@uunet.uu.net Subject: QSL Route for RS-12 Robot To: ham-space@ucsd.edu Does anyone know the QSL route for the RS-12 robot? I worked it a few weeks ago, and don't recall the route. TNX, -- *********************************************************************** Al Gerheim Sonalysts, Inc. Email: gerheim@sonalysts.com 215 Parkway North Work: (203)442-4355 Waterford CT 06385 *********************************************************************** ------------------------------ End of Ham-Space Digest V94 #238 ******************************